BBS Toolkit/BBS Toolkit.iso/pc_board/bbsfind1.zip/PCBTEST.BAT

DOS Batch File | 1992-04-26 | 2KB | 52 lines

ECHO      THIS FILE WILL NOT RUN IN THIS CONDITION!!
ECHO      YOU MUST DELETE THE COMMENTS FIRST!!
goto end








echo off
@echo ■ Checking for included FILE_ID.DIZ for description
if %2 == UPLOAD pcbdesc %1 %3

whatext %1                   -> finds the dos file extention for the U/L'd file
if errorlevel == 6 goto arj
if errorlevel == 1 goto zip
goto end

:zip                                 ->  It's a ZIP!
echo ■ Testing ZIP file integrity    ->  Tell the user what's going on
@pkunzip -t %1 > pcbfail.txt         ->  send results of test to user
@if errorlevel == 1 goto end         ->  if ZIP fails CRC checks quit now.

@ren %1 f:\pcb\privupld\$$$.zip  >NUL ->  Rename to prevent false alarms
@f:\tc\bbsfind %1                >NUL ->  Check for duplications with any ext
@ren f:\pcb\privupld\$$$.zip %1  >NUL ->  Rename file back to original name
@if errorlevel == 1 goto exists       ->  File exists, OH NO!
@del pcbfail.txt                 >NUL ->  File is new  GOODY!
goto end

:arj                                  ->   The same comments apply here as for
@echo ■ Testing ARJ file integrity    ->   the ZIP area.
@arj -t %1 > pcbfail.txt
@if errorlevel == 1 goto end
@ren %1 f:\pcb\privupld\$$$.arj  >NUL
@f:\tc\bbsfind %1                >NUL
@ren f:\pcb\privupld\$$$.arj  %1 >NUL
@if errorlevel == 1 goto exists
@del pcbfail.txt                 >NUL
@goto end


:exists          ->  Tell the user they uploaded a duplicate
Echo File already Exists under another extention > pcbfail.txt
del %1           ->  Kill the recently uploaded file (it's a dupe anyway!)


:end